home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1999 May / Cd Pc Users extra 20 mayo 1999.iso / Prog / Inst / FTP / FILES.C < prev    next >
Encoding:
C/C++ Source or Header  |  1999-03-22  |  12.2 KB  |  375 lines
  1. /* files.c */
  2.  
  3. #include <windows.h>
  4. #include "fce.h"
  5. #include "files.h"
  6. #include "info.h"
  7. #include "message.h"
  8.  
  9. extern HWND hMainWnd;            /* main window handle */
  10. extern HWND hInfoWnd;            /* popup handle */ 
  11. extern HCURSOR ArrowCursor;      /* arrow cursor */
  12. extern HCURSOR WaitCursor;
  13. extern int ConnectStatus;
  14.  
  15. #define POST_MSG(m) PostMessage(hDlgWnd,WM_USER,(m),0)
  16.  
  17. #define USE_FCE_DRIVER 
  18.  
  19. #define MAX_BUF 5000
  20. #define MAX_STR 64
  21.  
  22. /* private */
  23.  
  24. static HWND hDlgWnd;
  25. static int  NextState = STATE_IDLE;
  26. static int  BinaryMode = FALSE;
  27. static char DataBuffer[MAX_BUF];
  28. static char ServerDir[MAX_STR];
  29. static char LocalDir[MAX_STR];
  30. static char FileName[MAX_STR];
  31. static char Temp[MAX_STR];
  32.  
  33. void Message(LPSTR);
  34. int AskUser(LPSTR);
  35. void ShowError(int Code);
  36. int IsConnected(void);
  37.  
  38. void SetStatusText(HWND hDlg, LPSTR Text)
  39. {
  40.  SetDlgItemText(hDlg, ID_STAT_BOX, Text);
  41. }
  42.  
  43. void AddStatusText(HWND hDlg, LPSTR Text)
  44. {int Len;
  45.  Len = GetDlgItemText(hDlg, ID_STAT_BOX, (LPSTR)DataBuffer, MAX_BUF-MAX_STR);
  46.  if(Len>0)
  47.    {DataBuffer[Len] = '\r';
  48.     DataBuffer[Len+1] = '\n';
  49.     lstrcpy((LPSTR)&DataBuffer[Len+2],Text);
  50.     SetDlgItemText(hDlg, ID_STAT_BOX, (LPSTR)DataBuffer);
  51.    }
  52. }
  53.  
  54. void EnableStopButton(HWND hDlg, int EnableFlag)
  55. {int i;
  56.  EnableWindow(GetDlgItem(hDlg,ID_STOP_BTN), EnableFlag);
  57.  for(i=ID_EXIT_BTN;i<=ID_DEL_BTN;i++) 
  58.     EnableWindow(GetDlgItem(hDlg,i), !EnableFlag);
  59. } 
  60.  
  61. #ifdef WIN32
  62. BOOL CALLBACK
  63. #else
  64. BOOL FAR PASCAL
  65. #endif
  66. FilesDlgProc(HWND hDlg, UINT iMsg, WPARAM wParam, LPARAM lParam)
  67. {int i, Code;
  68.  static long ByteCount;
  69.  static long LastCount;
  70.  switch (iMsg)
  71.    {case WM_INITDIALOG:
  72.       hDlgWnd = hDlg;
  73.       if(IsConnected()) 
  74.         {/* show local directory */        
  75.          Code = fceGetLocalDir(0, (LPSTR)LocalDir, MAX_STR);    
  76.          if(Code<0) ShowError(Code);
  77.          else
  78.            {LocalDir[Code] = '\0';
  79.             SetDlgItemText(hDlg, ID_LDIR_BOX, (LPSTR)LocalDir);
  80.             wsprintf((LPSTR)Temp,"Local directory is %s", (LPSTR)LocalDir);
  81.             SetStatusText(hDlg,(LPSTR)Temp);
  82.            }          
  83.          /* get server directory */
  84.          fceGetServerDir(0,(LPSTR)ServerDir, MAX_STR);
  85.          SetDlgItemText(hDlg, ID_SDIR_BOX, (LPSTR)ServerDir);
  86.          wsprintf((LPSTR)Temp,"Server directory is %s", (LPSTR)ServerDir);
  87.          AddStatusText(hDlg,(LPSTR)Temp); 
  88.          /* set BINARY mode */
  89.          Code = fceSetMode(0,'B');
  90.          if(Code<0) ShowError(Code);
  91.          else
  92.            {BinaryMode = TRUE;
  93.             CheckRadioButton(hDlg, ID_ASC_RB, ID_BIN_RB, ID_BIN_RB);
  94.             SetStatusText(hDlg,"BINARY mode set");
  95.            }
  96.          SetTimer(hDlgWnd,0,50,NULL);
  97.         }
  98.       else EndDialog(hDlg, 0);
  99.       /* disable STOP button */
  100.       EnableStopButton(hDlg, 0);
  101.       return TRUE;
  102.  
  103.     case WM_TIMER:
  104.       switch(NextState)
  105.         {case STATE_IDLE:
  106.            return TRUE;
  107.          case STATE_UPLOAD:
  108.            NextState = STATE_IDLE;
  109.            for(i=1;i<=5;i++)
  110.               {Code = fceDriver(0);
  111.                if(Code<0) 
  112.                   {ShowError(Code);
  113.                    NextState = STATE_CLEANUP;
  114.                    return TRUE;
  115.                   } 
  116.                if(Code==0) 
  117.                  {ByteCount = fceGetInteger(0, FCE_GET_FILE_BYTES_SENT);
  118.                   InfoFileMsg(ByteCount);
  119.                   wsprintf((LPSTR)Temp,"%s uploaded (%ld bytes)",
  120.                                     (LPSTR)FileName, ByteCount);
  121.                   AddStatusText(hDlg,(LPSTR)Temp);   
  122.                   NextState = STATE_CLEANUP;
  123.                   return TRUE;
  124.                  }
  125.               }
  126.            /* display progress */
  127.            ByteCount = fceGetInteger(0, FCE_GET_FILE_BYTES_SENT);
  128.            if(ByteCount!=LastCount) 
  129.              {InfoFileMsg(ByteCount);
  130.               ShowWindow(hInfoWnd,SW_SHOW);
  131.               SendMessage(hInfoWnd,WM_USER,0,0L);
  132.               LastCount = ByteCount;
  133.              }               
  134.            NextState = STATE_UPLOAD;  
  135.            break;
  136.            
  137.          case STATE_DNLOAD:
  138.            NextState = STATE_IDLE;
  139.            for(i=1;i<=7;i++)
  140.              {Code = fceDriver(0);
  141.                if(Code<0) 
  142.                   {ShowError(Code);
  143.                    NextState = STATE_CLEANUP;
  144.                    return TRUE;
  145.                   } 
  146.                if(Code==0) 
  147.                  {NextState = STATE_CLEANUP; 
  148.                   ByteCount = fceGetInteger(0, FCE_GET_FILE_BYTES_RCVD);
  149.                   InfoFileMsg(ByteCount);
  150.                   wsprintf((LPSTR)Temp,"%s downloaded (%ld bytes)",
  151.                                      (LPSTR)FileName, ByteCount);
  152.                   AddStatusText(hDlg,(LPSTR)Temp);
  153.                   NextState = STATE_CLEANUP;
  154.                   return TRUE;
  155.                  }       
  156.               }
  157.           /* display progress */
  158.           ByteCount = fceGetInteger(0, FCE_GET_FILE_BYTES_RCVD);
  159.           if(ByteCount!=LastCount) 
  160.             {InfoFileMsg(ByteCount);
  161.              ShowWindow(hInfoWnd,SW_SHOW);
  162.              SendMessage(hInfoWnd,WM_USER,0,0L);
  163.              LastCount = ByteCount;
  164.             }              
  165.           NextState = STATE_DNLOAD;
  166.           break;
  167.           
  168.         case STATE_CLEANUP:
  169.           NextState = STATE_IDLE;
  170.           /* re-enable automatic call to seeDriver */
  171.           fceSetInteger(0,FCE_SET_AUTO_CALL_DRIVER,1);
  172.           /* drop info window */
  173.           ShowWindow(hInfoWnd,SW_HIDE);
  174.           SetCursor(ArrowCursor);  
  175.           /* disable STOP button  */
  176.           EnableStopButton(hDlg, 0);
  177.           break;
  178.         default:
  179.           NextState = STATE_IDLE;
  180.        } /* end-switch */
  181.       return TRUE;
  182.        
  183.     case WM_COMMAND:
  184.       switch (LOWORD(wParam))
  185.         {case ID_EXIT_BTN:
  186.            if(AskUser("Log off server?")!=IDOK) return TRUE;
  187.            if(!IsConnected()) return TRUE;
  188.            ConnectStatus = FALSE;
  189.            fceClose(0);
  190.            KillTimer(hDlgWnd,0);
  191.            EndDialog(hDlg, 0);
  192.            break;
  193.            
  194.         case ID_STOP_BTN:
  195.            NextState = STATE_IDLE;
  196.            fceAbort(0);
  197.            NextState = STATE_CLEANUP;
  198.            Message("Aborted by User!");
  199.            /* disable STOP button */
  200.            EnableStopButton(hDlg, 0);
  201.            break;
  202.            
  203.         case ID_FULL_BTN:
  204.            /* get full directory list */
  205.            if(!IsConnected()) 
  206.              {EndDialog(hDlg, 0);
  207.               break;
  208.              }
  209.            SetCursor(WaitCursor);
  210.            /* change to ASCII mode */
  211.            if(BinaryMode) fceSetMode(0,'A');
  212.            /* get full file list */
  213.            Code = fceGetList(0,FCE_FULL_LIST,(LPSTR)DataBuffer,MAX_BUF);
  214.            if(Code>=0) SetStatusText(hDlg, (LPSTR)DataBuffer);
  215.            if(BinaryMode) fceSetMode(0,'B');
  216.            SetCursor(ArrowCursor);
  217.            break;
  218.            
  219.          case ID_NAME_BTN:
  220.            /* get directory name list */
  221.            if(!IsConnected()) 
  222.              {EndDialog(hDlg, 0);
  223.               break;
  224.              }
  225.            SetCursor(WaitCursor);
  226.            /* change to ASCII mode */
  227.            if(BinaryMode) fceSetMode(0,'A');
  228.            /* get filename list */
  229.            Code = fceGetList(0,FCE_NAME_LIST,(LPSTR)DataBuffer,MAX_BUF);
  230.            if(Code>=0) SetStatusText(hDlg, (LPSTR)DataBuffer);
  231.            if(BinaryMode) fceSetMode(0,'B');
  232.            SetCursor(ArrowCursor);
  233.            break;   
  234.            
  235.          case ID_ASC_RB:
  236.            /* set ASCII mode */
  237.            if(!IsConnected()) 
  238.              {EndDialog(hDlg, 0);
  239.               break;
  240.              }          
  241.            Code = fceSetMode(0,'A');
  242.            if(Code<0) ShowError(Code);
  243.            else 
  244.              {BinaryMode = FALSE;
  245.               CheckRadioButton(hDlg, ID_ASC_RB, ID_BIN_RB, ID_ASC_RB);
  246.               AddStatusText(hDlg,"ASCII mode set");
  247.              } 
  248.            break;
  249.            
  250.          case ID_BIN_RB:
  251.            /* set BINARY mode */
  252.            if(!IsConnected()) 
  253.              {EndDialog(hDlg, 0);
  254.               break;
  255.              }          
  256.            Code = fceSetMode(0,'B');
  257.            if(Code<0) ShowError(Code);
  258.            else 
  259.              {BinaryMode = TRUE;
  260.               CheckRadioButton(hDlg, ID_ASC_RB, ID_BIN_RB, ID_BIN_RB);
  261.               AddStatusText(hDlg,"BINARY mode set");
  262.              }            
  263.            break;
  264.            
  265.          case ID_SDIR_BTN:
  266.            if(!IsConnected()) 
  267.              {EndDialog(hDlg, 0);
  268.               return TRUE;
  269.              }         
  270.            /* set server directory */
  271.            if(GetDlgItemText(hDlg, ID_SDIR_BOX, (LPSTR)ServerDir, MAX_STR)==0)
  272.              Message("Missing directory name");
  273.            else
  274.              {Code = fceSetServerDir(0,(LPSTR)ServerDir);
  275.               if(Code<0) ShowError(Code);
  276.               fceGetServerDir(0,(LPSTR)ServerDir, MAX_STR);
  277.               wsprintf((LPSTR)Temp,"Server directory is %s",(LPSTR)ServerDir);
  278.               AddStatusText(hDlg,(LPSTR)Temp);
  279.               SetDlgItemText(hDlg, ID_SDIR_BOX, (LPSTR)ServerDir);                
  280.              }
  281.            break;
  282.            
  283.          case ID_LDIR_BTN:
  284.            if(!IsConnected()) 
  285.              {EndDialog(hDlg, 0);
  286.               break;
  287.              }         
  288.            /* set local directory */
  289.            if(GetDlgItemText(hDlg, ID_LDIR_BOX, (LPSTR)LocalDir, MAX_STR)==0)
  290.              Message("Missing directory name");
  291.            else
  292.              {Code = fceSetLocalDir(0,(LPSTR)LocalDir);
  293.               if(Code<0) ShowError(Code);
  294.               else 
  295.                 {wsprintf((LPSTR)Temp,"Local directory is %s",(LPSTR)LocalDir);
  296.                  AddStatusText(hDlg,(LPSTR)Temp);
  297.                 }              
  298.              }
  299.            break; 
  300.            
  301.          case ID_GET_BTN:
  302.            if(!IsConnected()) 
  303.              {EndDialog(hDlg, 0);
  304.               break;
  305.              }  
  306.            /* download file */
  307.            if(GetDlgItemText(hDlg, ID_FILE_BOX, (LPSTR)FileName, MAX_STR)==0)
  308.              Message("Missing file name");
  309.            else
  310.              {/* enable STOP button */
  311.               EnableStopButton(hDlg, 1);
  312.               /* download the file */
  313.               SetCursor(WaitCursor);
  314.               /* disable AUTO */
  315.               fceSetInteger(0,FCE_SET_AUTO_CALL_DRIVER,0);
  316.               Code = fceGetFile(0,(LPSTR)FileName);            
  317.               if(Code<0) ShowError(Code);
  318.               else NextState = STATE_DNLOAD;
  319.              }
  320.            break; 
  321.            
  322.          case ID_PUT_BTN:
  323.            if(!IsConnected()) 
  324.              {EndDialog(hDlg, 0);
  325.               break;
  326.              } 
  327.            /* upload file */
  328.            if(GetDlgItemText(hDlg, ID_FILE_BOX, (LPSTR)FileName, MAX_STR)==0)
  329.              Message("Missing file name");
  330.            else
  331.              {/* enable STOP button */
  332.               EnableStopButton(hDlg, 1);
  333.               /* upload the file */
  334.               SetCursor(WaitCursor);
  335.               /* disable AUTO */
  336.               fceSetInteger(0,FCE_SET_AUTO_CALL_DRIVER,0);
  337.               Code = fcePutFile(0,(LPSTR)FileName);
  338.               if(Code<0) ShowError(Code);
  339.               else NextState = STATE_UPLOAD;
  340.              }
  341.            break;   
  342.            
  343.          case ID_DEL_BTN:
  344.            if(!IsConnected()) 
  345.              {EndDialog(hDlg, 0);
  346.               break;
  347.              }  
  348.            /* delete file */
  349.            if(GetDlgItemText(hDlg, ID_FILE_BOX, (LPSTR)FileName, MAX_STR)==0)
  350.              Message("Missing file name");
  351.            else
  352.              {/* delete the file */
  353.               SetCursor(WaitCursor);
  354.               Code = fceDelFile(0,(LPSTR)FileName);             
  355.               SetCursor(ArrowCursor);
  356.               /* check status of deletion */
  357.               if(Code<0) ShowError(Code);
  358.               else 
  359.                 {wsprintf((LPSTR)Temp,"%s deleted",(LPSTR)FileName);
  360.                  AddStatusText(hDlg,(LPSTR)Temp);
  361.                 }
  362.              }
  363.            break;
  364.            
  365.             
  366.          default:
  367.            break;
  368.         }/* end-switch (LOWORD(wParam)) */
  369.     return TRUE;
  370.    }
  371.  return FALSE;
  372. } /* end FilesDlgProc */
  373.    
  374.  
  375.